From: Jim Blandy <jimb@redhat.com>
Date: Wed, 19 May 1993 06:01:21 +0000 (+0000)
Subject: * fileio.c (Ffind_file_name_handler): Check that FILENAME is a
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96165
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e44320953357900a80cd0b9a5e8e832f1005c457;p=emacs.git

* fileio.c (Ffind_file_name_handler): Check that FILENAME is a
	string.
---

diff --git a/src/fileio.c b/src/fileio.c
index 5e6f048b9c2..ff79504430c 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -174,6 +174,8 @@ A file name is handled if one of the regular expressions in\n\
 {
   /* This function must not munge the match data.  */
 
+  CHECK_STRING (filename, 0);
+
   Lisp_Object chain;
   for (chain = Vfile_name_handler_alist; XTYPE (chain) == Lisp_Cons;
        chain = XCONS (chain)->cdr)